﻿'TWILT - Tweet What I'm Listening To - Coded by -DefaulT
'Copyright (C) 2011  -DefaulT

'Distributed Through http://twilt.co.cc/

'This program is free software; you can redistribute it and/or
'modify it under the terms of the GNU General Public License
'as published by the Free Software Foundation; either version 2
'of the License, or (at your option) any later version.

'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'GNU General Public License for more details.

'You should have received a copy of the GNU General Public License
'along with this program; if not, write to the Free Software
'Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.

Imports System.IO.File
Imports TwitterVB2
Public Class Form6
    Public tw As New TwitterAPI
    Dim consumer As String = "sDwL0fvDZFEfSRNnuLA"
    Dim consumersecret As String = "wI0JOuVlqYsKKXQPbdPJqrodL2A5uoh4Ilsm1O0mhk"
    Public oauthtocken As String
    Public oauthtockensecret As String
    Dim strPassword As String
    Dim strUserName As String
    Dim oFile As System.IO.File
    Dim oWrite As System.IO.StreamWriter


    Private Sub Form2_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Me.Dispose()
    End Sub

    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        System.Diagnostics.Process.Start("http://twitter.com/DefaulTx")
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        System.Diagnostics.Process.Start("http://www.facebook.com/DefaulTx")
    End Sub
End Class